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US Gold’s mega game for the Autumn 
mixture of a helicopter combat game an 
arcade adventure inspired by classics su< 
Commando and Impossible Mission. 

Tony Hetherington investigates. 
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Start the new season in style by winning a copy of Gremlin 
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Win the C16 Greatest Hits 



Enter our simple competition and you could win a pack of 
Melbourne House’s C16 Greatest Hits 
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Will you become Gamer’s Trivia champion and go on to win the 
golden Trivial Pursuit set? g 




Mission 

OMEGA 




Can you stop an alien ship before a missile blows it and you to pieces? 
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Here at last Is the all new Improved 
Gamer reader’s club 
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ADVENTURE 



JLJtingeon 

Dressing 



Gordon Hamlett helps you add character's) to 
your adventure 
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unlimited vocabulary: It will say anything 
you want It to, and is simplicity Itself to use. 
Simply type In: 'SAY I AM A TALKING 
COMPUTES, AS EASY TO USE AS 12 3... 
and the computer speaks. 

SPEECH! has a bullWn parser which 



rslates English words Into ''phonemes" or 
-ech particles There are 49phonemes 
and 8 dltterenl pilch settings which can be 
used directly by the 'SPEAK command (eg. 
'SPEAK/HEH410W4) so 



command. 

Every copyol S 
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SPELL — • “ — " — 

progrc 
SAYFILE- speak 

Applications in: 
e education 
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e utilities 
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"The reproduction is suprlslngly good, and 
certainly on a par with some of tne more 
expensive speech Interfaces I have heard. 

that really Is very good^lue for 
money"... ACORN USER 
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Thrust’s combination of fast action and 
addictive gameplay have driven it to the top of 
the charts. Mike Roberts guides you through 
the game 
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In our Budget Bonanza competition held in our special budget 
software issue we ashed you for your favourite cut price games. 

e have compiled the budget charts. 



From the results v. 




TCP 2© 

Budget Games 

Top SO Budget Games 

1. SpeHbound/Mastertronic (MAD.) 

2. Formula 1 Simulator/Mastertronic 

3. The Last V8/Mastertronic (MAD.) 

4. Kikstart/Mastertronic 

5. Thrust/Firebird 

6. Master of Magic/Mastertronic (MAD.) 

7. Finders Keepers/Mastertronic 

8. Booty/Firebixd 

9. Knight Tyme/Mastertronic (MAD.) 

10. 1 Man and his Droid/Mastertronlc 

11. Kentilla/Mastertronlc 

12. Journeys End/Mastertronlc 

13. Molecule Man/Mastertronlc 

14. Action Biker/Mastertronic 

15. Harvey Headbanger/Firebird 

16. Empire Strikes Back/Mastertronic 

17. Countdown to Meltdown/Mastertronic (MAD.) 

18. Tennis/Bugbyte 

19. Kane/Mastertronlc 

20. Oho/Bugbyte 




I d* 



A 





C64 Top S 

There weren't quite enough — _ 

Thrust fans to unseat Spellbound Winner of the C64 pack is 

in a olose run contest Both are Matthew Crompton from Man- 
excellent games and so there is Chester, 
no choice between them — get 



1. Spellbound/Mastertronic (M.A.D.) 

2. Tlxrust/Firebird. 

3. Kikstart/Mastertronic 

4. Master of Magic/Mastertronlc (M.A.D.) 

5. Formula 1 Slmulator/Mastertronlc 









BBC Top 6 



Bughyte take the honours In 

the BBC chert with a sports 

simulation and an excellent Lloyd Nash ftom Sutton la our 

adventure. I wonder what would BBC winner. 

have happened If there was a 

BBC version of Spellbound. 



1. Tennis/Bugbyte 

2. Twin Kingdom Valley/Bugbyte 

3. Darts/Blue Ribbon 

4. Bird Strike/Firebird 

5. Gold/Yes! 



Atari Top 8 



A clean sweep for you know 
who with the nearest challenge 
coming Horn Americana's New 
York City and Shamus Just out- 
side the top five. 



The winner of the Atari peek Is 



1. Kikstart/Mastertronic 

2. The Last V8/MA.D. 

3. 1 Man and his Droid/Mastertronic 

4. Spellhound/MAD. 

5. Vegas Jackpot/Mastertronic 




C16 Top S 

Another Mastertronlo dean 
sweep with the first C 16 MAD. 
game leading the way. 



The winner is Troy McDonald 
from London. 



Top 8 Software 
Houses 



1. Bandits at Zero/Mastertronic (MAD.) 




1. Mastertronic 


2. Formula 1 Simulator/Mastetronic 




2. Firebird 


3. Kick Start/Mastertronic 




3. Americana 


4. Fingers Malone/Mastertronic 




4. Bugbyte 


5. Street Olympics/Mastertronic 




5. Bubblebus 












Anymore realistic 
ami you'd need insurance 
to ride it. 



There are two guys in front. One coming 
up from behind. And another just off 
your elbow. The screams of the bikes are 
deafening. 

The wind is pulling your face off your 
head. Your adrenaline is pumping like 
Hoover Dam. 

You kick your bike to the right. He’s 



bumped. He's flying. You push on. 

like your eyes off the road for a 
millisecond, and you could end up a part 
of the road. 

It’s all a blur. No time to think. You've 
just gotta pump it. The next turn’s the 
steep one. Bank, bank! The curve's wide 
open, but the screeching wheels of the 



bike in front are kicking gravel right in 
your... your... 

You hear a phone. A phone? Hey, wait a 
minute. This isn't a bike. It’s a chair. It all 
comes back now. Yes. You're home. The 
pizza’s here. The computer’s on. Looks 
like it’s going to be another quiet night 
after all. 




On Super Cycle? 1 If it were any 
more realistic, you’d need insurance to 
ride it. 
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TELE-GAMES' 



The leading Video game specialists offer - 
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(0S33-880445) 
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EMPIRE SOFTWARE,d=p.c.g.) 






sm ui-Mioxs 

DON’T MIS8 OUT! 

Now that you have read this issue of 
Computer Gamer and you know how 
interesting and invaluable it is. wouldn't it be 
a crime to run the risk of missing a single 
thrilling issue? 

Well, you don’t have to! 

If you order a subscription to Computer Gamer 
you will be assured of receiving every issue 
through your letter box each month without 
the worry involved in rushing to your local 
newsagent before all your friends have nabb- 
ed the available copies. 

Simply fill in the coupon and send it in with 
your remittance and sit back and wadt for 
thrills and excitement to come directly to youl 

Subscription Order Form 
Cut out and send to: 

Computer Oamer 
Infonet Ltd., 

Times House, 

179 The Harlowes, 

Hemel Hempstead, 

Herts. HP1 IBB. 





Please commence my subscription with the 
very next issue. 



Subscription Bates 
(tick □ as appropriate) 

£16.60 for 12 issues UK □ 

£21.60 for 12 issues overseas surface postD 
£28.00 for 12 issues USA surface post □ 
£67.00 for 12 issues airmail □ 



X am enclosing my (delete as necessry) 
cheque /Postal Order / International Money 

Order for £ 

(made payable to ASP Ltd) 

OB ^ 

Debit my Access □ Barclay car dD 
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HOODOO 

VOODOO 

Rght your way across 
the alien world of 



JEEP 

COMMAND 

Escape through 
unchartered enemy 
territory under 
ferocious fire. Drive 
that jeep, Fire those 
guns, Jump the 
ramps. It’s fast, 
furious and addictive. 
C64, C16. 



CRICKET 

Set the field, the 
pace, one player or 
two, and then 
thunder down the 
wicket to try and beat 
the ‘Meny Hackers! 
Fully animated action. 
BBC/Electron. 



Bloopalgrop Curse 
and become a 
Superheroooo. 
Powerful sounds and 
amazing scrolling 
graphics. C64. 



LEAPER 

Amazing all action arcade animation and 
sonics. Gribblies, 6 levels, 3 tunes, and 
even the last VW. The game you’ve been 
waiting for...C16, C64, Atari. 



OLLO 

'First Mission’ and 
'The Final Assault on 
Olio! Ace action, 
stunning graphics 
and sonics straight 
from the arcades. 
C64. 



SBUGETTI 

JUNCTION 

Trainee-traffic cop 
Louigi is on the 
loose. He still thinks 
he's sur le contignon. 
It's megapile-up time 
unless you take 
control. Spectrum. 



Argus Press Software Grpup, Victoria House, Leicester Place, London WC2H 7NB, 01-439 0666. 
For mail-order and 'Byte-me' T-shirts (small, med, large: £3). 
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White Dwarf 
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SPECTRUM 




Bertie Bishop -The Mission 





0 TO 600 

370 IF INKEY*="L“ AND ATTR (X+2 
,Y>-7 THEN GO TO 390 
380 BO TO 400 

390 IF ATTR (X+2,Y+1>=7 THEN G 
0 TO 700 

400 IF INKEY*=“Q" AND ATTR <X,Y 
— 1 > —7 THEN GO TO 420 
410 BO TO 430 

420 IF ATTR <X+1,Y-1>=7 THEN G 
0 TO 800 

430 IF INKEY*-"E" AND ATTR <X,Y 
+2) =7 THEN GO TO 450 
440 GO TO 460 

450 IF ATTR (X+l ,Y+2)=7 THEN B 
0 TO 900 
460 GO TO 1000 
470 GO TO 340 
600 LET X-X-l 

610 PRINT AT X ,Y; INK 5;" A") AT 
X+1,Y; AT X+2,Y; INK 7; 11 " 

620 IF X=14 AND Y+l=27 THEN GO 
TO 5000: REM END OF SCREEN SNAK 
ES AND ON TO NEXT SCREEN 
630 GO TO 1000 
700 LET X=X+1 

710 PRINT AT X,Yy INK 5;" A"; AT 
X+1,Y; 

- 720 PRINT AT X-l.Yj INK 7i" " 

730 IF X=14 AND Y=27 THEN GO T 
O 5000 

740 GO TO 1000 
BOO LET Y=Y-1 

BIO PRINT AT X,Y; INK 5j ” A" 

820 PRINT AT X+1,Y; INK 5;"'*" 
825 PRINT AT X.Y+2; INK 7f" "jA 
T X+l,Y + 2s" " 

830 IF X=14 AND Y=27 THEN GO T 
0 5000 

840 GO TO 1000 
900 LET Y=Y+1 

910 PRINT AT X ,Yj INK 5; " A " 

920 PRINT AT X+l,Yj INK 5;" 3f" 
925 PRINT AT X,Y-lj INK ‘7;" ";A 
T X+l , Y-l j 11 " 

930 IF X=14 AND Y=27 THEN GO T 

1000 REM BIRDS/DARTS/GORILLAS 

1005 PRINT AT MX, MY; INK 7 ; " " 

1010 IF ATTR (MX— 1 , MY)=5 THEN L 

ET MX=MX-1: BO TO 1100 

1020 IF ATTR (MX+1,MY>=5 THEN L 

ET MX=MX+1: GO TO 1100 

1030 IF ATTR <MX,MY-1>=5 THEN L 

ET MY-MY-1: GO TO 1100 

1040 IF ATTR (MX,MY+1)=5 THEN L 

ET MY=MY+1: GO TO 1100 

1050 LET CH=INT <RND*5+1>: IF CH 

>2 THEN GO TO 1100 

1060 IF MX>X AND ATTR (MX-1,MY>= 

7 THEN LET MX=MX-1 

1070 IF MX<X AND ATTR <MX+1,MY>= 

7 THEN LET MX-MX+1 

1080 IF MY>Y AND ATTR <MX,MY-1>= 

7 THEN LET MY=MY-1 

1090 IF MY< Y AND ATTR (MX,MY+1>= 

7 THEN LET MY=MY+1 

1100 IF ATTR (MX, MY) =5 THEN BEE 

P .2,0: PRINT AT BEEP . 




2,5: PRINT AT X+1,Y;" ": BEEP .2 
,10: PRINT AT X,Y+lj" BEEP .2 
,15: PRINT AT X+l,Y+lj" ": BEEP 
.2,20: GO TO 5500 
1110 PRINT AT MX ,MY ; INK 3;''*" 
1120 IF DYOY THEN GO TO 1250 
1130 OVER 1 

1135 IF ATTR (DX,DY>=5 THEN OVE 
R 0: PRINT AT X,Y; INK 7;" A": BE 
EP .5,10: IF INKEY*<>"C" THEN F 
OR N=1 TO 5: FOR G=-20 TO 20: BE 
EP . 001 ,Q: NEXT G: NEXT N: GO TO 
5500 

1137 IF ATTR (X,Y)=7 THEN PRINT 
AT X , Y; INK 5} " BEEP .5,0: G 
0 TO 1500 

1140 FOR N=DX TO 1 STEP -1 
1150 PRINT AT N,DYj INK ATTR (N, 
DY) j " 1 " 

1155 IF SCE<=5 THEN BEEP . 06/8K 

,10 

1157 IF SCE>5 THEN BEEP .03/SK, 
10 

1160 IF ATTR (N-1,DY>=5 THEN GO 
TO 1200 

1170 PRINT AT N.DYj.INK ATTR (N, 
DY > ; " A " 

1180 NEXT N 

1190 OVER O: BO TO 1500 
1200 IF INKEY#="C" THEN OVER 0: 
PRINT AT X , Y [ ” ”: BEEP .5,10: 

PRINT AT X,Y} INK 5;" A": PRINT 
AT N,DYj OVER 1; INK ATTR (N,DY> 

5 ■' A " : LET SC-SC+10: Gp TO 1500 
1210 FOR N=1 TO 2: FOR G=10 TO 5 
O: BEEP .0009,8:, NEXT G: NEXT N 
1220 OVER 0: GO TO 5500 
1250 IF DAYOY THEN GO TO 1400 
1260 OVER 1 

1270 IF ATTR (DAX,DAY>=5 THEN 0 
VER O: PRINT AT X,Yj INK 75"A'': 
BEEP .5,10: IF INKEY*< >"C" THEN 
FOR N=1 TO 5: FOR G=-20 TO 20: 
BEEP . 001 ,6: NEXT G: NEXT N: GO 
TO 5500 

1280 IF ATTR (X,Y>=7 THEN PRINT 
AT X, Y; INK 5; 11 J " : BEEP .5,0: G 
0 TO 1500 

1290 FOR N=DAX TO 1 STEP -1 
1300 PRINT AT N , DAY ; INK ATTR (N 
, DAY) g “ A" 

1310 IF SCE<=5 THEN BEEP . 06/SK 

,10 

1320 IF SCE>5 THEN BEEP .03/SK, 
10 

1330 IF ATTR (N-1,DAY>=5 THEN G 
0 TO 1370 

1340 PRINT AT N,DAYj INK ATTR (N 
, DAY) i " A " 

1350 NEXT N 

1360 OVER O: GO TO 1500 
1370 IF INKEY*=“C" THEN OVER 0: 
PRINT AT X , Y ; " ": BEEP .5,10: 

PRINT AT X , Y; INK 5; " A. " > PRINT 
AT N , DAY ; OVER 1; INK ATTR <N,DA 
Y > j " A " : LET SC=SC+10: GO TO 1500 
1380 FOR N=1 TO 2: FOR G”10 TO 5 



] 



O: BEEP . 0009,G: NEXT G: NEXT N 
1390 OVER O: GO TO 5500 



1400 IF DRYOY THEN GO TO 1500 
1410 OVER 1 

1420 IF ATTR <DRX,DRY>=5 THEN 0 
VER Os PRINT AT X,Y; INK 7;"*": 
BEEP .5,10: IF INKEY*<>"C" THEN 
FOR N=1 TO 5s FOR G=-20 TO 20s 
BEEP . 001 ,3: NEXT Gs NEXT Ns GO 
TO 5500 

1430 IF ATTR <X,Y>-7 THEN s PRIN 
T AT X,Y| INK 5;" J" : BEEP .5,0s 
GO TO 1500 

1440 FOR N=DRX TO 1 STEP -1 
1445 PRINT AT N,DRY; INK ATTR (N 
, DRY) ; " A " 

1450 IF SCE<=5 THEN BEEP .06/SK 

,10 

1455 IF SCE>5 THEN BEEP .03/SK, 
10 

1460 IF ATTR <N-1,DRY>=5 THEN G 
0 TO 1475 

1465 PRINT AT N,DRY; INK ATTR (N 
, DRY) 5 " 1 " 

1470 NEXT N 

1472 OVER Os GO TO 1500 
1475 IF INKEY*-"C" THEN OVER Os 
PRINT AT X , Y j " “: BEEP .5,10s 

PRINT AT X,Y; INK 5;" A": PRINT 
AT N , DRY ; OVER 1) INK ATTR <N,DR 
Y > J '* A " : LET SC-SC+10: GO TO 1500 
1400 FOR N”1 TO 2s FOR G-IO TO 5 
Os BEEP . 0009, Gs NEXT G: NEXT N 
1490 OVER Os GO TO 5500 
1500 REM GOR. 

1510 LET GOR=INT (RND*21+1) 

1520 IF LI-1 THEN LET CH-1 
1530 IF LI -2 THEN LET CH-2 
1540 IF LI =3 THEN LET CH=3 
1550 IF GOR >CH THEN GO TO 340 
1560 IF ATTR <X,Y+2><>7 THEN GO 
TO 340 

1570 IF ATTR <X+l,Y+2><>7 THEN 
GO TO 340 

1575 IF SK-1 THEN BEEP .6,0s GO 
TO 1590 

1580 BEEP ( 1/SK) , 0 

1590 PRINT AT X,Y+2; INK 6; BRIG 

HT 1 ; " L." 

1600 PRINT AT X+l.Y+2; INK 6; BR 
IGHT 1}"M“ 

1610 IF INKEYS-" " THEN GO TO 1 
630 

1620 GO TO 1700 

1630 PRINT AT 19,29; INK 6; “ U" 
1640 PRINT AT 20,26; INK 6;"ORST 



SPECTRUM 



4030 FOR N=1 TO 11s PRINT AT N+5 
,5;" A";AT N+6,5; BEEP E (N) 

, D (N) 

4040 PRINT AT N+5, 5;" A "; IN 
K 6; INVERSE 1;B*(N);" ";C*(N); 

" 11 ; G$ (N) ; " ";E*(N) ; " ";F*(N> 

;AT N+6,5; INK 7; INVERSE 0; 



4050 NEXT N 
4055 PAUSE 100 
4060 CLS 
4070 PRINT AT 



’,14; INK 7 ; 1 



" ; AT 9,14;"Li J‘|AT 10,14;"B B 
;AT 11,14; "B B" ; AT 12,14;"MBB 
4000 BEEP .25,20: BEEP .25,10: P 
AUSE 100 
4090 CLS 

4100 PRINT AT 10,0; FLASH 1; INK 
5; BRIGHT 1;"Y0U HAVE COMPLEED 
BERT IP BISHOP BONUS 1000! YOU WO 
N AT LEVEL ";SK; " ! " 

4110 LET SC-SC+1000 

4120 FOR N=1 TO 10s FOR G=10 TO 

30s BEEP . 0009,G: NEXT Gs NEXT N 

4130 CLS 

4140 GO TO 6000 

5000 PRINT AT 14,29; INK 4;"0";A 
T 15,29; "O" 

5010 IF INKEY*=“C" THEN GO TO 5 



L THEN BEEP .3,10s G 



100 

5015 IF SK= 

O TO 5030 
5020 BEEP ( . 5/SK) , 10 
5030 IF INKEY*="C" THEN GO TO 5 
100 ‘ 

5040 PRINT AT 14,29; INK 4;"P";A 
T 15,29; "P" 

5050 IF INKEY*="C" THEN FOR N=0 
TO -20: BEEP .2, Ns NEXT N: GO T 
O 5500 

5060 BEEP (.5/SK), 10 
5070 IF INKEY*="C" THEN FOR N=0 
TO -20: BEEP .2, Ns NEXT N: GO T 
0 5500 

5080 GO TO 5000 

5100 PRINT AT 14,29; INK 7;"f" 
5110 FOR N=— 20 TO 30s BEEP .04,N 
: NEXT N 

5120 PRINT AT 14,26; INK 5;" J 
L " ; AT 15,26;" •ST" 

5140 FOR N=10 TO 30s BEEP .02,N: 



1650 FOR N— 26 TO 29: BEEP .2,-10 
: PRINT AT 20, N; " NEXT N 

1660 BEEP .2,0: PRINT AT 19,29;" 

1670 PRINT AT X,Y+2; INK ";A 

T X+l , Y+2; INK 7; " " 

1675 LET SC—SC+5 
1680 GO TO 340 

1700 FOR N=0 TO -10 STEP -Is PRI 

NT AT 20,27; INK 6;"N N": NEXT N 

1710 GO TO 5500 

4000 REM WIN 

4010 CLS 

4020 OVER 1 



5142 CLS 

5143 IF SCE—10 THEN GO TO 4000s 
REM WIN 

5145 OVER 1 

5150 FOR N=1 TO Us PRINT AT N+5 
,5;"A";AT N+6,5; "•*•": BEEP E <N> 
, D (N) 

5160 PRINT AT N+5,5(" A "; IN 
K 6; INVERSE 1;B*(N) ; " ";C*(N>; 

" ";D*<N> ; ” ";E$<N>;" ";F* (N) 

; AT N+6,5; INK 7; INVERSE 0;'"ae - 

5170 NEXT N 
5180 OVER 0 



>V) 




. 




5185 LET SC=SC+20 

5200 LET SCE=SCE+1 

5210 LET X=ls LET Y=1 

5220 -QO TO 50 

5500 REM LOOSE A LIFE 

5510 FOR N=29 TO 18+ <LI*2> -1 STE 

P -Is PRINT AT 18, N; INK 7;"t " 

5520 BEEP . 2 ,N 

5530 NEXT N 

5540 REM BYE BYE LIFE 

5550 LET LI=LI-1 

5560 IF LI=0 THEN GO TO 5600: R 
EM DOOM 
5570 CLS 

5575 LET X=l: LET Y=1 
5580 GO TO 50 
5600 REM DOOM 
5610 CLS 

5620 PRINT AT 8,16; INK 7;“^ 




5630 PRINT AT 10,16; INK 5; " A " ; 
AT 11,16; 

5650 REM CROWD 
5660 FOR N=7 TO 14 STEP 2 
5670 FOR G=5 TO 12 STEP 3: PRINT 
AT N,G; INK 7;"§";AT N+1,G; INK 
RND*4+4; NEXT G 
5680 NEXT N 

5690 FOR N=5 TO 12 STEP 3: PRINT 
AT 15, N; INK 3;"L:': NEXT N 
5700 PRINT AT 7,3; INK 7;"§";AT 
8,3; INK 4; "■ " ; AT 9,3; INK 3; "L" 
5710 PRINT AT 12,3; INK 7;"§";AT 
13,3; INK 6; "1 " ; AT 14,3; INK 3; 



7,13; INK 5; "I ”;i 
L" 

»730 PRINT AT 13,] 
14,13; INK 7; "I 
3;“L" 

*740 PRINT AT 4,7; 

INK 4; "I 



S AT 



; AT 15,13; INK 
INK 7; ”6 9" 



C 3; "L 



5765 FOR N=0 TO 6 
5768 FOR G=1 TO 2 
’5769 IF G=1 THEN OVER 0 
5770 PRINT AT 8,22-N; INK 7; “ 

; AT 9, 21-N; 11 JBBL ‘ ; AT 10, 21-N; "Or 
*■" ; AT 11, 21— N; " ■ ■ 11 ; AT 12, 21-N 
;" H ";AT 13,22-N; "UU" ; AT 14,22 
-N; ; AT 15,22-N; "TP" 

' 5775 OVER 1 

5780 PRINT AT 6,22-N; INK 6; ,l l_"j 
AT 7 ,22-N; 11 M' 1 

5790 PRINT AT 16,23-N; INK 6;"L" 

; AT 17 ,23— N; " M" 



5795 IF G=1 THEN . FOR S=-20 TO - 
11 STEP 2: BEEP .2,S: NEXT S 

5796 IF N=6 THEN GO TO 5825 
5BOO NEXT G 

5810 OVER 0 
5820 NEXT N 

5825 PRINT AT 10,19; INK 7; "<WHO 
TURNED"; AT 11,20; "THE LIGHTS"; A 
T 12,24; “OUT?" 

5830 BEEP 2,-20: BEEP 2,-25: BEE 
P 2,-30 

6000 REM HI SCORE 
6010 CLS 

6020 PRINT AT 2,5; INK 7; BRIGHT 
1 ; "YOU HAVE THE SKILL OF" 

6030 IF SC<10Q THEN LET Vi="A P 
REHISTQRIC GRANNY" 

6040 IF SC>=100 AND SC<300 THEN 
LET V*="A GREAT GRANNY" 

6050 IF SC >=300 AND SC<600 THEN 
LET V*="A GRANNY!" 

6060 IF SC >=600 AND SCC1000 THEN 
LET Vi=" SUPER GRAN! ! " 

6070 IF Sfc>=1000 THEN LET V*="R 
AMBOS GRANNY ! ! ! " 

6080 LET LENV=LEN V#: LET SP=31- 
LEN V*: LET P0S=SP/2 
6090 PRINT AT 6,P0S; INK 4; BRIG 
HT 1;V* 

6100 PRINT AT 10,10; INK 5; "AT L 

EVEL-"; INK 6;SK 

6110 PRINT AT 14, 10; "YOUR SCORE" 

6120 LET Si=STRi SC 

6130 LET LENS=LEN Si: LET SPS=31 

-LENS: LET P0=SPS/2 

6140 PRINT AT 16, PO; INVERSE 1; 

INK 6; BRIGHT 1 ; SC 

6150 IF SC>HI THEN LET HI=SC: P 

RINT AT 18,10; INK 3; BRIGHT 1; 

FLASH 1 ; "HIGH SCORER" 

6160 PRINT AT 19,8; INK 5;" A"; 
INK 7; "PRESS A KEY"; INK 5;" A" 
6170 PRINT AT 20,8; INK 5; "•*£•"! 

INK 7;" "! INK 5; "'ST" 

6180 PAUSE O 
6190 GO SUB 9398 
6200 LET X=1 : LET Y=l: LET SC=0: 
LET SCE=1 

6210 LET LI=3: GO TO 10 
8000 REM SET UP SCREENS 
8010 IF SCE>1 THEN GO TO 8100 
8020 FOR N=1 TO 27 STEP 2: PRINT 
AT 3,N; INK 4;"»";AT 4,N; INK 6 
; " J. " : NEXT N 

8030 FOR N=2 TO 13 STEP 2: PRINT 
AT 7 , N; INK 4;"«": PRINT AT 8,N 
; INK 6; " 1 ": NEXT N 
B035 FOR N=16 TO 30 STEP 2: PRIN 
T AT 7,N; INK 4;"«T;AT 8,N; INK 
6; " 1": NEXT N 

8040 FOR N=5 TO 27 STEP 3: PRINT 
AT 13,N;"«";AT 14, N; INK 6;"1": 



] 



8050 REM DART VARIABLES 
8060 LET DX=10: LET DY=6: LET DA 
X=12: LET DAY=13:. LET DRX = 15: LE 
T DRY=20 
8070 Return 

8100 IF SCE>2- THEN GO TO 8200 



70 
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8110 FOR N=1 TO 27 STEP 2: PRINT 
AT 5,N; INK 4;"©": PRINT AT 6,N 
; INK 6; " .1"! NEXT N 
0120 FOR N=2 TO 13 STEP 2s PRINT 
AT 10, N; INK 4 ; " ©" ; AT 11, N; INK 
6; "A": NEXT N 

8130 FOR N=16 TO 30 STEP 2: PRIN 
T AT 10, N; INK 4;"©";AT 11, N) IN 
K 6j " 1 " i NEXT N 

8140 FOR N=2 TO 27 STEP 3: PRINT 
AT 14, N; INK 4s"©"; AT 15, Ns INK 
6; "1": NEXT N 

8150 LET DX=15: LET DY=4: LET DA 
X=10s LET DAY=11: LET DRX=5: LET 
DRY=25 
8160 RETURN 

8200 IF SCE>3 THEN BO TO 8300 
8210 FOR N=5 TO 27 STEP 3s PRINT 
AT 5, N; INK 4; "©" ; AT 6,N; INK 6 
S “ 1 " s NEXT N 

8230 FOR N=2 TO 27 STEP 2s PRINT 
AT 9,N; INK 4;"©"sAT 10, N; INK 

8240 NEXT N 

8250 FOR N=4 TO 25 STEP 2s PRINT 
AT 14, N; INK 4f"©"jAT 15, Nj INK 

6; " .1" 

8260 NEXT N 

8270 LET DX=9s LET DY=4s LET DAX 
—5s LET DAY=12s LET DRX=5s LET D 
RY=2B 

8280 RETURN 

8300 IF SCE>4 THEN SO TO 8400 
8310 FOR N=4 TO 30 STEP 2s PRINT 
AT 3, Ni INK 4; "©*' ; AT 4,Nj INK 6 
S " 1 " 

8320 NEXT N 

8330 FOR N=2 TO 26 STEP 3s PRINT 
AT 8,N; INK 4;"©"jAT 9,N; INK 6 
A" 

8340 NEXT N 

8350 FOR N=5 TO 25 STEP 2s PRINT 
AT 11, Ns INK 4; "®" ; AT 12, N| INK 

8360 NEXT N 

8370 FOR N=5 TO 25 STEP 3s PRINT 
AT 14, N; INK 4;"*"; AT 15, N; INK 
6; " A" s NEXT N 

8380 LET DX=5s LET DY=6s LET DAX 
=10s LET DAY=1 1 s LET DRX=15s LET 
DRY=24 
8390 RETURN 

8400 IF SCE >5 THEN 80 TO 8500 
B410 FOR N-4 TO 30 STEP 2s PRINT 
AT 4, Ns INK 4; '’©" ; AT 5, Ns INK 6 
S " A " s NEXT N 

8420 FOR N=2 TO 27 STEP 2s PRINT 
AT 8,N; INK 4;"©"sAT 9,N; INK 6 
S " A"s NEXT N 

8430 FOR N=4 TO 30 STEP 2: PRINT 
AT 12, N; INK 4;"©"; AT 13, N; INK 
6; "A" 

8440 NEXT N 

8460 LET DX-lOs LET DY=6i LET DA 
X=6s LET DAY-12S LET DRX=lSl LET 
DRY=2B 
8470 RETURN 

8500 IF SCE >6 THEN 30 TO 8600 
8510 FOR N=3 TO 14 STEP 2s PRINT 
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AT 3, N; INK 4;"©"; AT 4,N; INK 6 
S" A" 

8520 NEXT N 

8530 FOR N=17 TO 30 STEP 2s PRIN 
T AT 3,N; INK 4;"©";AT 4,N; INK 
65" A" 

8540 NEXT N 

8550 FOR N=4 TO 30 STEP 2s PRINT 
AT 8,N; INK 4;"®"; AT 9,N|. INK 6 
5 " A " 

8580 NEXT N: LET DX=15s LET DY=5 
: LET DAX=15s LET DAY=14: LET DR 
X=15: LET DRY=28 
8590 RETURN 

8600 IF SCE >7 THEN 80 TO 8700 
8610 FOR N=2 TO 2B STEP 3s PRINT 
AT 3,N; INK 4s”©";AT 4,N; INK 6 
5 " A " 

8630 FOR N=2 TO 27 STEP 2s~PRINT 
AT 9 , N; INK 4;"®";AT 10, N; INK 
6; " A" 

B640 NEXT N 

8650 FOR N=4 TO 27 STEP 3s PRINT 
AT 13, N; INK 4;"»";AT 14, N; INK 
6 ; " . 1 " 

8660 NEXT N 

8680 LET DX=13s LET DY=10s LET D 
AX=13s LET DAY=20s LET DRX=15s L 
ET DRY=28 
8690 RETURN 

8700 IF SCE >8 THEN 80 TO 8800 
8710 FOR N=10 TO 20 STEP 5s PRIN 
T AT 3,N; INK 4;"®"; AT 4,N; INK 
6; " A"s NEXT N 

8720 FOR N=1 TO 27 STEP 3s PRINT 
AT 7, N; INK 4; "©" ; AT B,N; INK 6 
; " I " 

B730 NEXT N 

8740 FOR N=3 TO 29 STEP -2s PRINT 
AT 11, N; INK 4;“©"; AT 12, N; INK 
h-,“ A" 

8750 NEXT N 

8780 LET DX=5s LET DY=5s LET DAX 
=12s LET DAY=12s LET DRX=15s LET 
DRY=27 
8790 RETURN 

8800 IF SCE >9 THEN BO TO 8900 
8810 FOR N=2 TO 27 STEP 2s PRINT 
AT 3,N; INK 4;"®";AT 4,N; INK 6 
; " A " 

8820 NEXT N 

8830 FOR N=4 TO 30 STEP 2s PRINT 
AT 7, N; INK 4;''©";AT 8,N; INK 6 
S" A" 

8840 NEXT N 

8850 FOR N=2 TO 27 STEP 2s PRINT 
AT 11, N; INK 4; "©" ; AT 12, N; INK 
h;" A" 

8860 NEXT N 

8870 PRINT AT 14,10; INK 4; "© 

© ©"SAT 15,10; INK 6; " I 

A A" 

8880 LET DX=15s LET DY=15s LET D 

AX=10s LET DAY=20s LET DRX=15s L 

ET DRY=28 

8890 RETURN 

8900 REM FINAL SCREEN! 
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8920 NEXT N 
8930 FOR N=2 1 
AT 7,N; INK * 

5" I" 

8940 NEXT N 

8950 FOR N=5 TO 27 STEP 2: PRINT 
AT 12, N; INK 4;"»";AT 13, N; INK 



ET DRY=2S 

8990 RETURN 

9000 FOR N=0 TO 167 

9010 READ A 

9020 POKE USR "A''+N,A 

9030 NEXT N 

9040 DATA 1,1,3,3,7,5,5,31 

9050 DATA 128,128,192,192,224,16 

0,160,248 

9060 DATA 95,223,95,15,7,3,14,31 
9070 DATA 250,251,250,240,224,19 
2,240,120 

9080 DATA 248, 24B, 248, 240, 224, 19 
2,120,248 

9090 DATA 31,31,31,15,7,3,30,31 
>,255, 255, 239, B2, 



9100 DATA 80 
74,60 

9110 DATA 24 



9135 DATA 56 
4,60 

9140 DATA 36 



1,24,24,24,24,3 



56,120,24,126,255,2 
60,90,90,104,90,60, 
.0,36,10 



9150 DATA 102,90,90,1 
2,129 

9160 DATA 219,219,255,126,126,60 
,24,24 

9170 DATA 14, 17, 125., 85, 57, 18,4,2 

9180 DATA 16,56,84,124,142,67,67 
,62 

9190 DATA 192,120,47,23,27,12,7, 
0 

9200 DATA 0,0,192, 

, 127 

9210 DATA 7,15,63 

9220 DATA 208,176 

,0 

9230 DATA 0,0, 0,0 
9235 FOR N=1 TO 1 
NEXT N 

9239 DATA " " 



255,255,31 ,224 
254,253,131,12 
96,192,128,0,0 



9258 FOR N=1 TO 32: READ B (N) : Is 
EXT N 

9260 DATA 2, -5, -3,-1 ,0,2, -5, -5, 4 



,0,2, 4, 6, 7, -5, -5, 0,2, 0,-1, -3,-1, 
0,-1, -3, -5, -3,-1 ,-3,-5, -6, -5 
9270 NEXT N 

9275 FOR N=1 TO 11: READ CS<N>: 

9279 DATA 11 " , " " , " I" , 11 

”, ”E"," " 

9280 FOR N=1 TO 32 
9290 READ C(N) 

9300 DATA 1 , . 5, . 5, . 5, . 5, 1 , 1 , 1 , 1 , 

.5, .5, .5, .5, 1,1, 1,1, .5, .5, .5, .5, 

1,. 5, .5, .5, .5,1, .5, .5, .5, .5, 2 

9310 NEXT N 

9320 FOR N=1 TO 11 

9330 READ DUM) 

9340 DATA 9,9 , 14,9 , 14 , 18, 9, 14, IB 

9350 NEXT N 

9355 FOR N— 1 TO 11 

9357 READ G*<N>: NEXT N 

9359 DATA " ","F"," ",”0"," " ,"U 
” , "N" , " " ,"D"," " 

9360 FOR N=1 TO 11 
9370 READ E(N) 

9380 DATA . 3, . 3, . 55, . 3 , . 3, . 55 , . 3 
,.3, .55, .55, 1.1 

9381 NEXT N 

9385 FOR N=1 TO 11: READ B*(N): 



9390 DATA "M" , “ " , "U" , " 

9391 FOR N=1 TO 32: READ A* (N) : 

9395 DATA “ ” , “ " , “ " ,"0“,“ ",”D 
" ."O”," “ , "Y” , "O" , "U" , " " , "W" , "A 
" , "N" , "T" , " " , " I" , "N" , "S" , “T" , "R 
„ j hji. f ,. c .. , "T” , ” I " , "O” , "N" , "S” , "? 

9396 FOR N=1 TO 11: READ F*(N>: 

9397 DATA "B" ,” " , " I" , " " , ”B” , ” 



9398 CLS 

9400 OVER 1: FOR N-l TO 32: PR IN 
T AT ll,N-lj"'t_ 

M”: BEEP C(N)/4,B(N 
1: PRINT AT 1 1 , N-l ; " L 

M": PRINT A 
10,N— 1; BRIGHT 1; INK 4;A*<N>: N 
EXT N 

9410 OVER 0 

9420 PRINT AT 13,15; INK 5; BRIG 
HT 1 ; "Y/N" 

9430 IF INKEY*=”Y" THEN GO TO 9 
500 

9440 IF INKEY*="N" THEN GO TO 9 
460 

9450 GO TO 9430 

9460 CLS : PRINT AT 5, 9; "INPUT S 
KILL LEVEL”; AT 6,9; "THEN PRESS E 
NTER. " 

9470 PRINT AT 10,9; INK 6; BRIGH 
T 1 ; " 1 CHICKENS ONLY” 

9480 PRINT AT 12,9; INK 3; BRIGH 
T 1 ; "2 ONLY FOR ROCKYS”;AT 14,9; 
INK 2; BRIGHT 1; "3 KAMAKASIE JO 

9490 INPUT SK: RETURN 
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9500 CLS s INK 7 

9510 PRINT AT 2,0;" BERTIE BISH 

□P ’THE MISSION’ " 

9520 PRINT AT 3,0;" 



9530 PRINT AT 4 , 9; " INSTRUCTIONS" 
; AT 5,9; "********•»***•' 

9540 PRINT AT 7,0; "BACKGROUND" 



9550 PRINT AT 9,0; "BERTIE HAS LA 

NDED HIMSELF IN BIG TROUBLE A 

GAIN. HE GOT BACK FROM THE D 

EVIL'S PRISON & SOON FOUN" ' • "THA 
T HIS NORMAL BISHOPING DUTIES" • ' 
"WERE TOO BORING FOR HIM. SO ONE 

DAY HE DECIDED TO HAVE A BRE 

AK FROM VISITING CHURCHES AND 

OLD GRANNYS AND GO ON A MISS 

ION! !!!■" 

9560 PRINT : PRINT "BERTIE WENT 

OFF TO THE NEAREST JUNGLE AN 

D STARTED PREACHING TO 'THE NA 

TIVES. THE NATIVES DID NOT LI 

KE BERTIE MUCH AND TOOK OFF " ' ' 
"WITH HIS BIBLE! BERTIE (BEING N 
0" • ’"CHICKEN) STARTED TO LOOK FO 

R HIS' BIBLE AND SOON HAD SNAK 

ES, BIRDS" (RARE SPECIES OF MUG 

GER BIRD), GORILLAS AND NATIV 

ES (WHO BLOW DARTS) TRYING T 

O STOP HIM “ 

9570 PRINT : PRINT "THE GAME": P 

RINT " PRINT : PRINT " 

YOU MUST GUIDE BERTIE PAST ALL " 

• ' "THE TERRORS OF THE JUNGLE TO 

TRY AND RECOVER HIS BIBLE. TH 

ERE ARE TEN JUNBLE SCENES TO 

GO THROUGH AND THEY WON'T BE 

VERY EASY ! " 

9580 PRINT 

9590 PRINT "MUGGER BIRDS": PRINT 

" ": PRINT 

9600 PRINT "MUGGER BIRDS ARE BER 

TIES WORST ENEMY IN THIS GAME 

. THERE IS ONE' ON EVERY NEW S 

CREEN. THESE ARE 'THE ONLY CR 

EATURES NOT EFFECTED BY WHICH 

SKILL LEVEL YOU DECIDE TO PL 

AY ON. THEY TRACK YOU ROUND'" ■ "T 
HE SCREEN TILL THEY COME WITHIN" 
•"’ONE SPACE OF YOU. THEN THEY"' 

' "ATTACK! " 

9610 PRINT : PRINT "TO AVOID THE 

M ATTACKING YOU MUST WAIT TIL 

L THEY ARE JUST STUCK (ONLY 

FOR A SHORT TIME) BEHIND A" ' ' "TR 
EE THEN NIP OFF. OF COURSE YOU" ' 
"WON'T HAVE TO TRICK THEM LIKE 

THIS IF THEY ARE A LONG WAY 

OFF AND THERE IS A CLEAR PATH 

, JUST GO! YOU SHOULD SOON FI 

ND A WAY"- -"TO PASS THEM (BUT SO 

METIMES YOU 'WILL FAIL TO PASS 

THEM). DON'T '"'"BE PUT OFF YOU 
HAVE GOT THREE '" "'LIVES." 

9620 PRINT : PRINT “GORILLAS": P 

RINT " ": PRINT "EVERY NO 

W AND THEN GORILLAS WILL POP 
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UP (A LOT OF TIMES ON LEVEL3 

WHEN ONE DOES YOU WILL SEE IT, A 

WARNING BEEP WILL SOUND AND" 

'"'YOU MUST RELASE ANY KEY YOU A 

RE PRESSING AND QUICKLY HIT S 

PACE '■••''IF YOU WERE FAST ENOUGH 
•A BOTTOM" •• "RIGHT DISPLAY PART 
OF THE SCREEN" • '"WILL SHOW A GIA 

NT BANANA. THIS WILL GO BIT B 

Y BIT AS THE HUNGRY APE EATS 

IT. HE WILL THEN LEAVE'" ' "YOU. I 
F YOU WERE TOO SLOW THEN " 

9630 PRINT : PRINT “HIS FISTS WI 
LL BE DISPLAYE NOT" • "'THE BANANA 

AS YOU WAVE BYE BYE' TO ONE 

OF YOUR LIVES. THE TIME YOU H 

AVE TO REACH YOUR BANANA IS D 

ETERMINED BY THE SKILL LEVEL " • • 
“THAT YOU AftE PLAYING THE GAME A 
T" 

9640 PRINT : PRINT "BLOW DARTS": 

PRINT " " 

9650 PRINT "BLOW DARTS WILL COME 

FLYING AT YOU FROM PRESET PO 

SITIONS ON EACH SCREEN. HOLD 

DOWN -C- TO '"'"DUCK BEFORE ONE 

HITS YOU THEN MOVE QUICK! SO 

METIMES ONE WILL SUDDENLY APP 

EAR RIGHT OVER YOUR HEAD DO T 

HE SAME TO DODGE THEM TOO. TH 

EIR SPEED IS DETERMINED EY TH 

E SKLL LEVEL THAT YOU ARE PLA 

YING AT. THEY ALSO DOUBLE TH 

EIR SPEED FROM SCREEN SIX ON!" 
9660 PRINT : PRINT "SNAKES": PRI 



9670 PRINT "TO LEAVE EACH SCREEN 

YOU MUST STAND DIRECTLY IN 

FRONT OF THE TWO SNAKES WHI 

CH GUARD THE EXIT. THEY WILL 

KEEP MOVING (THE SPEED OF WHI 

CH THEY MOVE IS DETERMINED" '■ "BY 
SKILL LEVEL). YOU MUST PRESS'"' 
’"C TO CLUB THEM WHEN THEY FACE 

DOWNWARDS. YOU WILL SOON BE 

ON THE NEXT SCREEN. IF YOU CL 

UB THEM WHEN THEY ARE FACING 

UPWARD YOU LOOSE A LIFE." 

9680 PRINT : PRINT “LET THE FORC 

E BE WITH YOU ": PRINT : PR 

INT : PRINT INK 5; INVERSE 1;" 

PRESS ANY KEY 
9690 PAUSE 0 
9700 GO TO 9460 





HUNGRY 

By William Prew 



n tbe keyboard of young Mr Prew. 



80 *TV255 

90 IF FNask PROCload 
100 VDU23; 8202; 0: 0; 0 ; eCLS 
110 PROCinst 
120 H0DE5 

130 VDU23;8202; 0; 0:0; 

140 VDU19,2,6:0: 19,3,3;0: 

160 REPEAT 
210 key=TRUE 



250 



REPEAT 
dead— FALSE 
over=FALSE 



270 UNTIL over 
280 PROCwait (5000) 

290 M0DE7 : PRDCtabl e 

300 UNTIL FALSE 

310 DEFPROCmain 

320 REPEAT 

330 PROCvariables 

340 PROCscreen 

350 REPEAT 

360 PRQCcal 1 

370 UNTIL dead OR next 

380 IF dead PROCdead EL 

390 UNTIL over 

400 ENDPROC 

420 DEFPROCcal 1 

430 PROCwait <1 50-50*1 ev 

440 PROCharry 

450 IF dead ENDPROC 

460 PROCdog 

470 ENDPROC 

4B0 : 

490 DEFPROCvariables 
500 energy=50+10olevel 
S10 next=FALSE 
520 FORal=0 TO 10 
530 F0Ra2=5 TO 15 
540 area (al ,a2> =0 
550 NEXT, 

560 dX=ll-.25*level 

570 IF dX<0 d7.=0 

580 xX=4:yX=5 

590 dog (0,0) =9: dog (0, 1 > 

600 way*=rhi* 

610 IF score=0 NUM=20 
620 ENDPROC 



74 



680 ENDPROC 
690 : 

700 DEFPROCscreen 

710 IF level >10 VDU19,2,2;0; 

720 CLS 

730 C0L0UR2 

740 PRINTTAB (6,0) "HUNGRY H” 
750 COLOUR7 

760 PRINTTAB(0,2> "SCORE";scor 
770 PRINTTAB (0,4) "LEVEL" ;leve 



. 1 dog* 

820 FOR f ood=l TO NUM 
830 REPEAT 

840 A=RND(7)+l:B=RND(B)+5 
850 UNTIL area (A,B) =0 
860 PRINTTAB ( A*2 ,B*2) ; 

870 IF level >10 PRINTplum* 



1,B)=1 



900 ENDPROC 
910 : 



920 DEFPROCharry 

940 IF INKEY-2 REPEAT UNTIL INKEY-1 

950 IF INKEY-17 THEN *FX210,1 

960 IF INKEY-34 THEN *FX210 

970 IF INKEY-71 AND key=FALSE THEN key 

980 IF INKEY-70 AND key=TRUE THEN key= 
FALSE 

990 IF key THEN PROCkeyboard ELSE PROC 
joystick 

1000 IF mxX=xX AND my7.=y7. ENDPROC 
1010 IF mx7.=dog(0,0) AND my7.=dog (0, 1 ) d 
ead=TRUE: ENDPROC 
1020 ener gy=ener gy- 1 
1030 IF energy< 10 S0UND3 ,3,50,1 
1040 C0L0UR7 

1050 PRINTTAB (8,6) ; energy; " " 

1060 IF energy=0 dead=TRUE: ENDPROC 
1070 IF area(xX,y%)=l PROCscore (10) 

1080 PRINTTAB (mxX*2,myX»2> tspc* 

1090 PRINTTAB (xX*2,yX*2> ; way* 

1100 IF score=200*l evel next=TRUE 
1110 ENDPROC 

1130 DEFPROCkeyboard 
1140 key=TRUE 

1160 IF INKEY— B2 AND xX<9 x7.=xX+l : way 
1170 IF INKEY— 57 AND yX>4 y7.=y7.-l : way*= 

1 180 IF INKEY-73 AND yX<14 yX-yX+l : way* 

1190 ENDPROC 

1210 DEFPROC joystick 
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1220 key=FALSE 

1230 aZ=ADVAL(l)DIV256 

1240 bX=ADVAL(2)DIV256 

1250 IF a%>150 ANDx7.>0 xX=xZ-l:way*=lhi 

1260 IF aZ<50 AND xZ<9 xX=xZ+l:way*=rhi 
1270 IF bX>150 AND yZ>4 yZ=yZ-l : way*=uh 
1280 IF b7.<50 AND y7.< 14 y Z=yX+l : way#=dh 
1290 ENDPROC 

1310 DEFPROCscore (n > 

1320 NUM=NUM-1 

1330 SOUND3,2,55,l 

1340 area (xX,yX> =0: score=score+n 

1350 COLOUR7! PRINTTAB (5,2) j score 

1360 ENDPROC 

1370 : 

1380 DEFPROCdog 

1390 IF dog (0,0) =xX AND dog(0,l)=y% dea 
d=TRl)E: ENDPROC 
1400 pX=RND(10> 

1410 sxX=dog(0,0> 

1420 sy7.=dog(0,l) 

1430 IF p7.<d7. ENDPROC 

1440 IF ABS (dog (0,0) —xX) >ABS (dog (0, 1)— y 
Z). ..PROChori zontal ELSE PROCvertical 
1450 PRINTTAB (sxZ*2,syZ*2) ; 

1460 IF area (sxX,syX) =0 PRINTspc* ELSE 
IF area(sxZ,syZ) = l AND leveKU PRINTIoo 
df ELSE PRINTplum* 

1470 IF dog (0,0>=xX AND dog(0,l)=yX dea 
d=TRUE 



3 PRINTTAB (dog (0 
3* 

3 ENDPROC 
3 : 

a DEFPROChori zontal 
3 dog ( 0 , 0 ) =dog ( 0 , 0 ) +£ 
a ENDPROC 



1570 

1580 

1590 

1600 

1620 

1630 

1640 



DEFPROCve 
dog ( 0 , 1 )= 
ENDPROC 

DEFPROCwa 
FORdelayZ 
NEXTdel ay 
ENDPROC 



1660 d 
1670 h 
1680 F 



1730 

1740 

1750 

1760 

1770 

1780 

1790 



DEFPROCnew 

FOR B-55 TO 75 STEP2 

S0UND3, 4,B,5 



HUNGRY 

SCORE20 

LEUELi 

STFtEMGTMS-* 



SI 



rffa rffe 
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1800 NEXT 

1810 COLOUR2 

1820 PRINTTAB(0,16)SPC<1 



1850 PROCwai t ( 
1860 NUM=20 
1870 ENDPROC 



S.0F 






J.FC 



&0F 



*<F0 



8c7F 



0 VDU23 , 225 , S.BE , *<C 1 , &F9 , l<CD , &B4 , *<E4 , 

0 VDU23 , 226 , &FC , 8.FC , S.FC , 8.FB , &F7 , &EF , 
*F 

VDU23 , 227 , S.3F , &3F , &3F , *<DF , 8>EF , &F7 , 
r E 

VDU23 , 232 , S.3F , &3F , 8.CF , &CF , 8.FF , 8.FF , 

950 VDU23 , 233 , *<30 , *<30 , *<CC , *<CC , S.FF , &FF , 
: F 

VDU23 , 234 , *<3C , *<3C , *<0F , &0F , *<03 , S<03 , 
IF 

VDU23 , 235 , *<0F , *<0F , &FF , *<FF , *<FC , *<FC , 

VDU23 , 236 , &BC , &0C , *<33 , &33 , &FF , *<FF , 
r F 

VDU23 , 237 , ScFC , *<FC , *<F3 , *<F3 , *<FF , *<FF , 
r F 

VDU23 , 238 , *>F0 , 8<F0 , &FF , &FF , *<3F , &3F , 
IF 

0 VDU23 , 239 , *<3C , *<3C , ScF0 , &F0 , *<C0 , *<C0 , 
,*<F0 

,*<2D 

,*<84 

0 VDU23 , 243 , *<BC , *<BC , *<84 , *<BC , «<BC , 8<BC , 

2060 VDU23 , 244 , &0F , &0F , &3F , &3F , *<CF , 8.CF , 
<3F , *<3F 

2070 VDU23 , 245 , *<F0 , &F0 , *<FC , &FC , *<3F , &3F , 
<3F,*<3F 

2080 VDU23 , 246 , *<FF , &FF , 8<FF , &FF , ?<CF , &CF , 
*<3F 

'0 VDU23 , 247 , *>3F , &3F , *<F3 , &F3 , &C0 , *<C0 , 
*<00 

*<FF 

0 VDU23 , 249 , !<00 , &00 , *<C0 , &C0 , &F3 , *<F3 , 
*<3F 

!0 VDU23 , 250 , *<3F , S.3F , *<CF , *<CF , *<3F , &3F , 

0 VDU23,251 ,*<3F,*<3F,*<3F,*<3F,*<FC,*<FC, 
*<F0 

2140 VDU23,252,S<1F,*<00,S<00,*<20,*<FF,«<CF, 

2150 VDU23 , 253 , *<00 1 *<C0 , *<20 , *<74 , &FF , &FF , 
<FF , &FF 

2160 VDU23 , 254 , *<CF , *<E7 , &E7 ,*<67,*<73,*<1F, 
VDU23 , 255 , *<FF , &FF , &FF , &FE , &FE , *<F8 , 
2180 ENVELQPE1, 1,36, -36, 0,20, 20, 0,126,0 
2190 ENVEL0PE2, 1 ,-8,0, 1 ,5,2,40,61 , — 1 , — 1 
2200 ENVELOPE3,4,90,-15,-15, 10,20,20, 12 
2210 ENVELQPE4 , 2 , 12,-8, 15,5,8,8,0,0,0,- 
2220 ENVELOPES, 1,70, 6, 0,31, 10, 0,1 26, 0,0 



2240 bul 1 dog*=CHR*l 7+CHR*l +CHR*224+CHR* 
225+CHR* 1 0+CHR*B+CHR*B+CHR*226+CHR*227 
2250 f oodI=CHR* 1 7+CHR*6+CHR*240+CHR*24 1 
+CHR* 1 0*CHR*8»CHR*B+CHR*242+CHR*243 
2260 p 1 um*=CHR* 1 7+CHR*6*CHR*252+CHR*253 
+CHR*10+CHR*8+CHR*B+CHR*254+CHR*255 
2270 spc*=CHR*32+CHR*32+CHR*10->-CHR*B+CH 
R*8+CHR*32+CHR*32 

2280 dhi *=CHR* 1 7+CHR*3+CHR*244+CHR*245+ 
CHR* 1 0+CHR*B+CHR*B+CHR*246+CHR*247 
2290 uh i *=CHR* 1 7+CHR*3+CHR*24B+CHR*249+ 
CHR* 1 0+CHR*8+CHR*8+CHR*250+CHR*25 1 
2300 rhi *=CHR*17+CHR*3+CHR*236+CHR*237+ 
CHR* 1 0+CHR*8+CHR*8+CHR*23B+CHR*239 
2310 lhi*=CHR*l 7+CHR*3+CHR*232+CHR*233+ 
CHR* 1 0+CHR*8+CHR*8+CHR*234+CHR*235 
2320 up*=CHR*9+CHR*l 1 
2330 ENDPROC 
2340 : 

2350 DEFPROCtable 
2360 PROCammend 
2370 CL5 

2380 PRINTTAB (7,1) CHR*141CHR*134"Rol 1 o 
2390 PRINTTAB (7 ,2) CHR*141CHR*134"Rol 1 o 
2400 FORR-0TO7 

2410 VDU32 , 32 , 1 30 , R+49 , 46 s PR I NTTAB < 3) CH 
R*135ssc(R)TAB(16) ; * <name+R*15> ' 

2420 NEXT 

2430 PR I NTTAB (2, 22) CHR* 134 "Do you wish 
to save the roll (Y/N) "; 

2440 REPEAT 

2450 ans=INSTR ( "YyNn” ,GET*) 

2460 liNTILans 
2470 IF ans<3 PROCsave 
2480 PR I NTTAB (2, 22) CHR* 134 "Press the SP 
ACE BAR to replay. ";TAB<33,22> ; 

2490 REPEA TUNT I LGET =32 
2500 ENDPROC 
2510 : 

2520 DEFPROCsave 
2530 c=OPENOUT < " ROLL " ) 

2540 PRINTHc ,7 

2550 FOR S=0 TO 7 

2560 PRINT#c,sc (S) ,* (name+S*15) 

2570 NEXT 
2580 CLOSEttc 
2590 ENDPROC 
2600 : 

2610 DEFPR0C1 oad 
2620 c=DPENUP ( "ROLL" ) 

2630 IF c=0 PRINTTAB (4,22) "Hall of Fame 
file not present. ": CLOSE#0: PROCwai t <500 
0) : ENDPROC 



C*15)=" n 



sc (K) =0:1 
NEXT 

INPUT#c,K 
FOR 1=0 TO 7 

INPUT#c , sc ( I > ,* (name+I*15 

NEXT 

CLOSE#c 

ENDPROC 

DEFPROCammend 
IF score<=sc(7) ENDPROC 
FOR 1=7 TO 0 STEP-1 



HUHGRV 

SCORE23B 
LEUEL2 <jj 

STREHGTH64 




□ QUALIFY FOR THE 



ENOUGH" 

2820 PRINTTAB(0,7> 

QLL OF HONOUR ! “ 

2B30 PR I NTT AB (4, 10) CHRJ131 "PLEASE ENTER 
YOUR NAME" 

2840 VDU31,5,12, 

6,31,9, 12:+FX15,1 



2880 78,904=127 

2890 X 7.=0 : Y7.=&9 : AX=0 

2900 78,904=127: X7.=0: Y7.=8,9: A7.=0 

2910 CALL8.FFF1 

2920 ENDPROC 

2930 : 

2940 DEFFNask 
2950 S0UND3 ,5,35,5 
2960 PR I NTTAB < 0 , 5 > CHR* 1 34 "Load 
i Honour ? "j 

2970 REPEAT A=INSTR ( "YyNn" .GETS 
29B0 UNTIL A 

2990 IF A<3 =TRUE ELSE =FALSE 



e+fill2*15)=".The 
1 1 ) =3000— 400*-f ill 
112) =3000— 400*f i 1 ] 



3160 PROCcentre <CHR*134+"To control 

3170 PRINT:PR0Ccentre(CHR*131+"A ... 
Tt S ... Right") 

3180 PROCcentre<CHR#131+"* ... Down 
... Up") 

3 1 90 PR I NT : PROCcen t r e < CHRt 1 34+ " Ot her 

3200 PRINT: PROCcentre <CHR*131 + "CTRL . 
Freeze SHIFT ... Continue") 

3210 PROCcentre (CHR*131+"Q ... Sound 



3220 PROCce 



?<CHR*131+"K .. J 
tre<CHR*136+" 



3140 PRINT"The ob. 



3230 PRINT: PROCce 
e SPACEBAR to cont 
3240 A=INKEY (3000) 

3250 ENDPROC 
3260 : 

3270 DEFPROCchars 

3280 C0L0UR2: PRI NTTAB (0,2) "CHARACTERS" 
3290 COLOURl : PR I NTTAB (0,4) : bul 1 doqf: " 
BULLDOG" 

3300 C0L0UR3: PR I NTTAB (0,8) : f oad$: “ HIPP 
O FOOD" 

3310 COLOUR2: PRI NTTAB <0,12);rhi$; " HENR 



3330 COLOUR2:PRINTTAB<2,20) "PI 
3340 PR I NT "SPACEBAR TO PLAY" 
3350 REPEAT UNTIL GET=32 
3360 ENDPROC 
3370 : 

3380 DEFPROCcentre<A*> 

3390 PRINTTABU9— <LEN A*)/2)A: 
3400 ENDPROC 



3150 PRINT"Y 



11 
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memory with — 
SAVE "MERLIN" 



SPECTRUM 
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SPECTRUM 


2> NEXT* 6 * LEI «=“*■ = T NE*T Z b 

C67fe052a23c93e00324871324971c93 


943204f4c444520424f 3245202020202 


30 LET >1=30000* FOR a=100 TO 3 




lc93e00324B71 32497 lc93eO332407 13 
02f f eO3204cf e042B69f e05c sec 74c93 


226773e033227773e 1 dI23c77cd2477c 


OOOaf Olf edf edTR" 00000000000 " ° 




d7d32f 06dOlfc6d7832f96d7932f a6dc 
76d7d32+86d01O2" 




a6f OlOOOOaf cdb5033ac 17c473ac27c4 




d7d32f B6d010B6e7832f 96d7932f aide 
93ed2327b5c3e62327c5c2144677c32f 


7c32c7e0000ot^edf af ed79cddc6B3ac 


^a57c7B32cT7c7932c27c l'Be03aa47cf l 
eff2B05fe002807c93e0032a47cc93ef 




130 DATA "62327c5c2156677e32f 76 


130 DATA "7f 32b33ccd6bOdcd7679c 


°?rr^^oooooooooooooooo 






17efe32ca796ed60277c3796ec97BC60 


SSggggggggggggggggggggggggggggg 






l l l 40 ,> DATA 1 "77cd2477cd6b0dc9af323 


°140°DATA 0 "0000000000 0 000000000 0 




oooooooooooooooooooooooooooooooo 
OOOOOOOOOOOOOOOdb If f ef f nBf e38c8d 


73e09d77ed7233el4d73e01d73abB793 

d32bB7920ee3eOd21b87977cddelEcda 






00000000000ad37 ■ 

19f*c 62370161 70c B34021eca007ffeS 


150 DATA 11 202020202020202020a f d 








f 7afebdcc497af ebbcc347afeb7cc667 


C4500c6be22d068d068106a346a346a3 

46a346a346a346a3a0B67b7c2fa7B3a0 








at a783a956f b 7caf a7B2 1 003B01 00033 




000000000000000" 


170 DATA "7ac93a997af ef f 28073ef 


daf Odaf 32936f 32944f 32956f 3acc67 f 
s05cae67B3c32cc " 

170 DATA "67c3ec7Bc9550808d06Bd 




el032347f3e0432357f 328f 3c3e0^323 


9673c3209673a09'' 

c3a3d64fe03cB3a07673c3209A7c93aO 


46a346a546a346a346a346a346a346a3 

46a346a346»346a346a346a346adb024 

dOOdb02db024d00030000000B585c03d 

b024d00db024d00“ 

ISO DATA "60588002e057db024d000 
7500000ec5a5c07f 30dce0be450c eObe 

1 33f 1 Ec OEOOdb024dOOdbu24dOodL Sal 




OToooono'ooooo^HEHiEEHEi 




190 DATA "002110010101000001010 
000dd2ab25cdd232a7b5cdd5e0Sldcb2 






369782320232020" 


B03fSc5dd7e02dd77O6cdaa22dd7707d 
d34072f e6O73cdd770Bd5e5cddb0beld 




SSS^SSSSSSSSfiSS^ 


32020202023202020202320202020232 

02320232020202020202320232023202 










62Q13dd350a28060/dd350»20f a77c 1 ( 
1053d209bc9dd3509700addcb04 46280 




6d73el5d7afd77ed7233a667B3d32667 


0202020202020202020202 

02020202020202020202020202U20202 


80Bdd36O70 1 1 8994eebdd3fe0908 1 B>1 30 

oooooooooooo oooooooooooooooooooo 
oooooooooooooooooooooooooooooooo 
ooooooooooooooo • 

220 DATA "Oooooooooooc 3000 




0204241 4 e44 4 552534e4 154434820202 

| 020202020202020" 




ouoooooooooooooooooooooooooooooo 

oooooooooooooooooooooooooooooooo 

ooooooooooooooooooooooo(>oooooooo 

oooooouoooooooo" 
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k « „ .T?d text-teaser 

world where 
no ’modo has lept before! 
Go on... take a swing at it! 




* 




10 SYMBOL AFTER 122:SYMB0L 123,0,0,255,2 
55, 255, 255, 0,0: SYMBOL 125,0,0,0,255,255, 
0 , 0,0 

20 M*=" DO YOU WISH TO PLAY THE COMPUTER 



30 PL=0:X=1: WINDOW 1 , 40, 1 ,25: MODE 1:INK 
0,2: PAPER O: INK 1,26: PEN 1: BORDER 1:CLS: 
BOSUB 830: PRINT" ARROWSHOT (C> S 

COTT CAREY 1985 “ j 

40 BOSUB 840: INK 2, 6: PAPER 2:WIND0W 1,40 
,4,25: CLS 

50 PRINT : PRINT" The first competitor to 
reach nil will be the winner. The game s 

three turns at throwing their arrows be 






player takes their turn. 



This then goes 

60 PRINT" on until someone wins the mate 
h.If the contest has not been decided a 
fter 100 throws, the bout is scored a No 



Contest 

70 PAPER 0: PRINT : PRINT" Keys : K & L Key 
s - UP : No key - DOWN ": PAPER 2:G0SUB 8 
30: WINDOW 1 ,40, 17,25: CLS: PRINT: GOSUB 840 
•.WINDOW 1 ,40, 19,25: INK 3,1: PAPER 3:CLS 
80 WINDOW 1,40,1,25 

90 GOSUB 850:A*=INKEY*:A*=UPPER*<A*> : IF 

a*=" Y" THEN PL-1 

100 IF A*-"N“ THEN PL=2 

110 IF PL=0 THEN 90 

120 M*=" PRESS THE - C' KEY TO CONTINUE T 
HE GAME " : SOUND 2,400, 15, 7: SOUND 2,500,1 
5,7: SOUND 2,0,400,0 

130 GOSUB 850: A*= INKEY*: A*-UPPER* <A*> : IF 
A*< >"C" THEN 130 

140 SOUND 1 ,400, 15,7:S0UND 1,500,15,7 
150 P=99: Pl=99: B=0: DIM S(20> 

160 A=INT(19*RND<1)>+1:IF S(A)=0 THEN B= 

B+llS(A)-B 

170 IF B< 19 THEN 160 

180 H*=" PLAYER «lu Throws" : R*-H* 

190 T-T+liIF (T=4)*(PL=2) THEN R*=>" PL A YE 
R *20 Throws": GOSUB 610 

200 IF (T=4)*(PL<>2) THEN R*= " COMPUTER ' S 
Throws": GOSUB 610 

210 IF T=7 THEN T=1 : R*=H*: BOSUB 610 
220 FOR N=0 TO 30: A*=INKEY*: A*=" " : NEXT 
230 BOSUB 470: PEN 1: PAPER 2:L0CATE 4,13: 
PRINT" " : LOCATE 9,13:PRINT" ":X»10:Y=13 

240 IF T<4 THEN DX-DX+1 
250 IF T>3 THEN DZ-DZ+1 
260 IF DZ >98 THEN 650 



^rroiv shotb 



AM ST R A B 



270 IF <PL< >2) * (T>3) THEN 670 
280 X1=X:Y1=Y:A*=INKEY#:A*=UPPER*(A*) j IF 
(A*<>“K")*(A#<>"L"> THEN Y=Y+1:G0T0 300 
290 Y-Y-l 

300 X=X+1 : LOCATE X1,Y1:PRINT" ":LOCA 

TE X , Y: PRINT CHR* < 123) CHR* (1231CHR* (123) 

CHR#(123)CHR*(125):IF X=32 THEN 340 

310 IF <Y=24)+(Y=4> THEN 420 

320 SOUND 1 ,X*10, 1 ,7: SOUND 2,X*50,1,6 

330 GOTO 280 

340 FOR X=0 TO 2000: NEXT 

330 IF (T<4) # (S (Y— 4) >P) THEN 440 

360 IF (T>3) *(S <Y— 4) >P1 ) THEN 440 

370 IF T<4 THEN P=P-S (Y-4) : GOTO 390 

380 Pl=Pl-S(Y-4) 

390 IF P=0 THEN X=DX:GOTO 630 
400 IF P1=0 THEN X=DZ:GOTO 630 
410 GOTO 190 

420 GOSUB 810: PRINT" COMPLETELE Y MISSED" 
430 GOSUB 800: GOTO 190 

440 GOSUB 810: PRINT "POINTS OVER SCORED" 
450 GOSUB 800 
460 GOTO 390 

470 BORDER 13: INK 3,26:PEN 3: INK 0,18:PA 
PER 0: WINDOW 1 , 40, 1 ,25: CLS: GOSUB 830: INK 
1,0: PEN 1: PRINT" MATCH INFORMATION ":L0 
CATE 20,2:PRINT": "R*:PEN 3:G0SUB 840:MI 
NDOW 1,40,4,25: INK 2,6:PAPER 2:CLS:WIND0 
W 1,40,1,25 
480 CP— 22 

490 IF T<4 THEN CP=4 

500 LOCATE 1,11:PRINT" "CHR# (204) CHR 

# (208) CHR# (205) : PRINT" "CHR*(204)" » 

CHR* (209) : PRINT" ";:PEN 1: PRINT CHR*(1 

23);: PEN 3: PRINT CHR*(211>" "CHR* (209); 
: PEN 1: PRINT CHR# ( 123) CHR* ( 125) : PEN 3: PR 
I NT" "CHR* (205)" "CHR* (204) 

510 FOR N=15 TO 19:L0CATE 6,N:PAPER 0:PR 
INT " " : NEXT 

520 FOR Nl=20 TO 21: FOR N=1 TO 7: LOCATE 
N,N1 : PRINT" ": NEXT: NEXT: PAPER 2 
530 V=0: LOCATE 2,5: PEN 1 : PAPER 0: PRINT" 
Remainder : "P" “ : LOCATE 2,23:PRINT" Rema 
inder :"P1" " 

540 GOSUB 820: FOR A=1 TO 19: IF C=2 THEN 
C=0: D=1 : GOTO 560 
550 C=2:D-3 

560 PEN D: PAPER C: LOCATE 37, 4+A: PRINT" 

" : LOCATE 37,4+A:PRINT S(A):SOUND 1,A,1 
,7: NEXT : FOR X=0 TO 2000:NEXT 
570 IF (PL< >2) * (T>3> THEN RETURN 
580 SOUND 1,400, 10, 7: PEN 1: PAPER 0:L0CAT 



E 2,2:PRINT "HIT THE 'C' BUTTON TO THROW 
YOUR ARROW" 

590 A*=INKEY*:A*=UPPER#(A*> : IF A*<>“C" T 
HEN 590 
600 RETURN 

610 SOUND 1,400, 30, 7:S0UND 1 ,500,30, 7: SO 
UND 1 ,300, 30, 7: RETURN 
620 X-lll 

630 LOCATE 2, 2: PEN 1: PAPER O: PRINT"THE C 
ONTEST WAS COMPLETED IN" ;X" ARROWS " 

640 GOSUB 660: RUN 

650 LOCATE 2,2:PEN 1:PAPER 0:PRINT"THIS 
CONTEST HAS BEEN SCORED AS A DRAW " : GOSU 
B 660: RUN 

660 FOR N=0 TO 3: GOSUB 610: NEXT: FOR N=0 
TO 2000: NEXT: RETURN 

670 FOR X=1 TO 19: IF S(X)=P1 THEN DM=X+4 

680 NEXT 

690 X=10:Y=13 

700 X1=X: Y1=Y:A=INT(2*RND(1) > :X=X+1: IF A 

=0 THEN Y=Y-1 

710 IF A=1 THEN Y=Y+1 

720 IF Pl<20 THEN GOSUB 770 

730 A*=INKEY*:A*=UPPER*(A*) 

740 LOCATE X1,Y1:PRINT" ”:LOCATE X,Y 

: PR I NT CHR* (123) CHR* (123) CHR# (123) CHR* ( 1 

23) CHR* (125): IF X=32 THEN 340 

750 IF (Y=24)+(Y=4) THEN 410 

760 SOUND 1 ,700+X , 1 ,7: GOTO 700 

770 IF Y<DM THEN Y=Y+1 

780 IF Y>DM THEN Y=Y-1 

790 RETURN 

800 SOUND 1,400, 10, 7:F0R X=0 TO 2500: NEX 
T: RETURN 

810 LOCATE 2,2: PEN 1: PAPER O: PR I NT "MATCH 
INFORMATION : " ; : RETURN 
820 PAPER 2: PEN 3: FOR A=1 TO 39: LOCATE A 
,25: PRINT CHR* ( 140) : NEXT: FOR A-l TO 7:F0 
R B=620 TO 640: PLOT B, A, 3: NEXT: NEXT: RETU 
RN 

B30 FOR N=0 TO 39: PRINT CHR* ( 131 >:: NEXT: 
RETURN 

840 FOR N=0 TO 39: PRINT CHR* ( 140) ;: NEXT: 
RETURN 

850 LOCATE 1,17: PAPER 3: PRINT M*:L*-RIGH 
T*(M#,39> : M*=L*+LEFT* (M#, 1 ) : SOUND 1 ,X*10 
,1,7: X=X+1 : INK 3,X:B0RDER X:IF X=5 THEN 
X=1 

860 RETURN 




SOLITAIRE 




"MONITOR" 




THEN TYPE IN *«#»«, 
T D000 D7FF 3800** 
PRESS RETURN ****»• 



' K BOOTHROYD 



1 1 NT" .7 
70 REM *** 

80 REM *** 

90 REM #•#' 

100 MENU*=” IMTPSL" 

110 Q=DEC("FF12") 

120 POKE Q , PEEK < Q ) AND ; 
130 POKE 0+1,14*4 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 S=0 
200 READ X 

210 IF X=999 THEN 290 

220 POKE 14336+S+ <8*65 

230 S=S+1 

240 GOTO 200 

250 REM **********».** 



NOW TELL COMPUTER TO CHANGE 
SET 1 OF ASC-CODES STARTING 
AT 65 l ATN ) *****«*»*»*».**. i 
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SOLITAIRE 






890 VOL 7: SOUND 1.200.5 
900 IF IA*->"0")*(A*<":") THEN 920 
910 GOTO 880 
920 ALX=ASCl A* ) -48 
930 CHAR 1,26, 5, A* 

940 GETKEY A* 

950 VOL 7! SOUND 1,200,5 
960 IF IA*>"@">«<A*<"J"> THEN 980 
970 GOTO 940 
980 BL%= ASC ( A* ) -64 
990 CHAR 1.27, 5, A* 

1000 A=PEEK(3034+lALX»2>+(BLX«80> ) 

1010 IF A<>65 THEN 860 
1020 REM *»« 

1030 GETKEY A* 

1040 VOL 7: SOUND 1,200,5 
1050 IF (A*>"0">*lA*^ ,, : n ) THEN 1070 
1060 GOTO 1030 
1070 ADX=ASC(A*)-48 
1080 CHAR 1,26, 6. A* 

1090 GETKEY A* 

1100 VOL 7: SOUND 1,200,5 
1110 IF (A*>"@")»(A*<"J") THEN 1130 
10-2 0 GOTO 1090 
1130 BDX=ASClA* >-64 
1140 CHAR 1,27, 6, A* 

1150 A=PEEK(3034+(ADX»2>+lBDX»80) ) 

1160 IF A=77 THEN 1210 
1170 CHAR 1 .2. 20, "SORRY ILLEGAL MOVE PLEASE TRY AGAIN" 

1180 FOR DE=1 TO 1000: NEXT DE 
1190 CHAR 1,2,20, " 

1200 GOTO 810 

1210 REM ***»»«*»*«»»*»*»**»»#»**» 

1220 REM ««» CHECK FOR LEGAL MOVE 

1230 IF l BLX = BOX > * l ALX= ADX+2 ) » l PEEK 1 3034+ i l ADX » 1 > *2 ) + ( BDX+60 ) J =65 J THEN 1280 
1240 IF lBLX=BDX)«(ALX=ADX-2)«lPEEKl3034+( ( ADX- 1 > »2> ♦ l BDX»80 > > =65 > THEN 1320 
1250 IF <BLX=BDX+2J»«ALX=ADX>*CPEEKl3034+(ADX«2)+l IBD%+1>«80> : =65 1 THEN 13bd 
1260 IF (BLX=BDX-2> * ( ALX=ADX> « (PEEKO034+ ( ADX«2>+ ( l BDX- 1 > »80> > =65 > THEN 14«0 
1270 GOTO 800 

1280 ALX=ALX«2: ADX= ADX«2 : BDX=BD%«2 : BLX=BL*«2 
1290 CHAR 1, ADX + 2, BDX-1, "* l x X " 

1300 CHAR 1 , ADX+2, BDX, " l"“l I" 

1310 SCX=SCX-1: GOTO 800 

1320 ALX=ALX*2i ADX= AD%»2 : BDX=BDX*2 :BLX=BLX*2 
1330 CHAR l,AL**2,BL»-l,*\ v*r 

1340 CHAR 1 , ALX+2, BLX, "I I I — " 

1350 SCX=SCX-1 iGOTO 810 

1360 ALX= ALX»2 : AD%=AD%*2 : BDX=BDX«2 : BLX=BLX*2 
1370 CHAR 1 , ADX+2, BDX-1 , D* 

1380 CHAR 1 , ADX+2, BD%, E* 

1390 CHAR 1, ADX+2, BDX+l.B* 

1400 CHAR 1, ADX+2, BDX+2.C* 

1410 CHAR 1, ADX+2, BDX+3.B* 

1420 CHAR 1, ADX+2, BDX+4.C* 

1430 SCX=SCX-1 :GOTO 810 

1440 ALX=ALX«2:ADX=ADX»2:BDX=BD%*2:BLX=BLX*2 
1450 CHAR 1, ADX+2, BLX-l.B* 

1460 CHAR 1, ADX+2, BLX.C* 

1470 CHAR 1, ADX+2, BLX+l.B* 

1480 CHAR 1, ADX+2, BLX+2.C* 

1490 CHAR 1, ADX+2, BLX+3, D* 

1500 CHAR 1, ADX+2, BLX+4, E* 

1510 SCX=SCX-1 :GOTO 810 
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It’s easy 

to complain about 
an advertisement. 
Once you know how 



One of the ways we keep a check on the 
advertising that appears in the press, on 
posters and in the cinema is by responding to 
consumers' complaints. 

Any complaint sent to us is considered 
carefully and, if there's a case to answer, a full 
investigatiQn is made. 

If you think you've got good reason to 
complain about an advertisement, send off 
for a copy of our free leaflet. 

It will tell you all you need to know to 
help us process your complaint as * 
quickly as possible. / 

The Advertising Standards Authority, w 
If an advertisement is wrong, we’re here to put it right. 

ASA Ltd, Dept 1 Brook House, 
Torrington Place, London WC1E 7HN 

This space is donated in the interests of high standards of advertising. 



The Power and 
the GLORY 




THE GOLD 




Americana Software , Units 2 3 Hotford Way, Holford, Birmingham B6 7AX. 
Tel: 021 356 3388 






I n the summer of 1986 the crew of VIRGIN 
I ATLANTIC CHALLENGER once again 
attempt to win the coveted BLUE RIBAND 
title for Britain by crossing the ATLANTIC 
OCEAN in the record time of 3 days and 
10 hours. 



Virgin Games brings you the VIRGIN 
ATLANTIC CHALLENGE GAME. This arcade 
game is a fun simulation of RICHARD 
BRANSON'S part in this exciting and 
dangerous event. You must guide Richard 
at BREAK-NECK SPEED from one piece 
of equipment to another to keep the 
boat ON-COURSE and in good time and 
take vital MONEY-MAKING (or breaking) 
decisions that are telexed to him from 
all parts of the VIRGIN EMPIRE. 



. £795 £ 8.95 , £ 8.95 



Available from all good Software Retailers or directly from Virgin with the tear-off slip below 



Please rush me my copy of the Virgin Atlantic Challenge Game! 



ADDRESS. 



□ Spectrum 48/128 £ 7.95 □ Amstrad CPC 464/664/6128 £ 8.95 □ Commodore 64/128 £ 8.95 
licit appropriate box 

Please make cheques and postal orders to VIRGIN GAMES LTD and post to the address below. Please do not post cash. 

VIRGIN GAMES MAIL ORDER, 2/4 Vernon Yard, Portobello Road, London WU 2DX. 




mu 

um-i-m-o-x 








5 REM#* SAVE AS RUN ** 

10 ONERRORGDTO30 

20 M0DE2 : VDU23 ; 8202 ; 0 ; 0 ; 0 ; : COLOUR 127: 
CLS: COLOURS: CLS 

30 PROCMESS:TM=l 

40 C7.=0: X=1B: Y=19: LX=X: LY=Y: PROCSCREE 
N: COLOURS 

50 PRINTTAB (LX ,LY> " " : TAB ( X , Y) CHRS224 
:LX=X:LY=Y 

60 TM=TM+X: PT=G— TM: PRINTTAB (7,29) " 

TAB (2,29) "Time ";PT 
70 IFPT<0THEN PROCLIFE 
80 I FI NKEY-98ANDX >0THEN X=X-1 
90 IFINKEY-67ANDX< 19THEN X=X+1 
100 I F I NKEY-73ANDY>0THEN Y=Y-1 
110 IFINKEY-105ANDY<25THENY=Y+1 
130 I FFNREADCH < X , Y ) =CHR# < 2.79 > THEN CX=C 
X+ 1 : SOUND 1,-5,100,3: TM=TM-50 
140 IFC7.= 10THENC7.=0:GOTO40 
150 I FFNREADCH <X,Y)=CHR#< 130) THEN TM=T 



'RINTTAB 



5 > STR I NG* < C , CHR#230 > : GO 



+ 100 



1 80 FORSD=50TO 1 50STEP2 : FORSDD=0TO3 : SOU 
NDSDD , -5 , SD , 1 : NEXT , 

190 IFS=1 THEN GOSUB250: GOTO230 
200 IFS=2 THEN GOSUB280: GOTO230 
210 IFS=3 THEN GOSUB310:GOTO230 
220 IFS=4 THEN GOSUB340: GOTO230 
230 C0L0UR2 : PR I NTTAB ( 0 , 0 ) STR I NG* ( 20 , CH 
R#230) ; TAB (0,25) STRING* <20 , CHRS230) : FORQ 
= 1T024:PRI NTTAB ( 0 , Q ) CHRS230 : TAB ( 1 9 , Q > CHR 
#230: NEXT 

240 TM=1 : ENDPROC 
250 RESTORE520 

260 CDLOUR2:READA,B,C: IFA=999 THEN 270 



270 C0L0UR3:READA,B: IFA=999 THEN RETUR 
N ELSE PRINTTAB ( A, B) CHR#229: GOTO270 
280 RESTORE560 

290 C0L0UR2:READA,B,C: IFA=999 THEN 300 
ELSE PRINTTAB ( A,B) STRING* (C,CHR#230) : GO 
TO290 

300 C0L0UR3:READA,B: IFA=999 THEN RETUR 
N ELSE PRINTTAB (A,B) CHR#229: GOTO300 
310 RESTORE590 

320 C0L0UR2: READA,B,C: IFA=999 THEN 330 
ELSE PRINTTAB! A, B) STRING* (C,CHR*230> : GO 
TO320 

330 CDL0UR3: READA.B: IFA=999 THEN RETUR 
N ELSE PR INTTAB(A,B) CHR#229 : GOTO330 
340 RESTORE620 

350 C0L0UR2: READA, B,C: IFA=999 THEN 360 
ELSE PRINTTAB (A, B) STR I NG* < C , CHR*230 ) : GO 
TO350 

360 COLOURS: READA, B : IFA=999 THEN RETUR 
N ELSE PRINTTAB ( A ,B> CHR*229: GOTO360 
370 DEFFNREADCH ( A , B ) 

380 LOCAL AX , LAST A , LASTB , C 

390 LASTA=POS 

400 LASTB=VPOS 

410 VDU31,A,B 

420 AX=135 

430 C=USR(&FFF4) 

440 C=C AND &FFFF 
450 C=C DIV &100 
460 VDU31.LASTA, LASTB 
470 =CHR*(C) 

480 DEFPROCLIFE 

490 CLS: PRINTTAB (5, 15) "GAME OVER" 

500 FORSD=50TO150 : SOUNDS , -5 , SD , 1 : NEXT: 
FORSD=150TO50STEP-2: FORSDD=3TO0STEP- 1 : SO 
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LISTING 1 



* 



10 REM»» SAVE AS MAZE *» 

20 M0DE2: VDU23; B202; 0; 0; 0; : C0L0UR129: 

CLS 

30 VDU23,224,56,56, 16,254, 16,40,68, 13 
0,23, 230 , t,FF , SeDF , &FB , &EF , &FD , 8.BF , &F7 , &7F 
, 23 , 229 , S<08 , & 1 4 , 8,22 , &49 , S.92 , &44 , *t28 , & 1 0 
40 C0L0UR15:PRINTTAB(7,4> "M A Z E":CO 
L0UR8:PRINTTAB(8,6) "R U N" 

50 C0LDUR7: PRINT' •"RUN AROUND THE MAZ 
ES" ' "AND COLLECT THE" ' "DIAMONDS TO 

COMPLETE THE SCREENS." 

60 PRINT '"KEYS...""" Z. . . LEFT X...RI 

6HT * *...UP ?. ..DOWN"' 

70 COLOUR 15:CHAIN" RUN " 




UNDSDD , -5 , SD , 1 : NEXT , 

510 PRINTTAB<3,28) "PRESS SPACE BAR " : RE 
PEATUNT I LGET =32 : CLS : 6OTO30 

520 DATA12, 1,1,2,2,9,16,2,2,2,3,1,10,3 
,1,12,3,1,14,3,4,2,4,1,4,4,4,10,4,1,12,4 
,4,17,4,1,2,5,1,7,5,1,10,5,1,12,5,1,17,5 
,1,2,6,4,7,6,4,12,6,1,14,6,1,17,6,1,10,7 
,1,12,7,1,15,7,1,2,8,6,10,8,1,12,8,1 
530 DATA16, 8, 1,2, 9, 1,7, 9, 4, 12, 9, 1,14, 9 
,4,2,10,1,4,10,1,12,10,1,17,10,1,4,11,1, 



, 12,6 



1, 15, E 



, 12 , 12 , 6 , 8 , 

1,1,8,15,1, 

1, 8, 16, 1,1 1,16, 7, 2, 17, 5, B,1 ,9,1,2,10^1 



,2,13,2,5,13,3,9,13,2,12,13,1,14,13,2,17 | 
,13,1,2,14,2,9,14,2,14,14,1,17,14,1,2,15 
,11,14,15,4,1,17,17,3,19,15,1,20,1 
610 DATA5, 20, 1,17, 20, 1,1, 21, 3, 5, 21, 
,21,9,17,21,1,5,22,1,7,22,1,17,22,1,2,23 I 



, 14,5,24,14,24,999,999 

620 DATA2,2, 16,2,3, 1,17, 3,1, 2, ^ 
12,17,4,1,4,5,1,17,5,1,2,6,1,4,6, 



,15,3,6 



4,8, 1,6, 8, 6 



7,1,11,17,7,8,18,10,1,19,6,6,20,2 

540 DAT A9 , 20 , 10,2,22, 16,2,23,7, 10,23,8 
,999,999,999 

550 DATA 13, 3, 9, 5, 9, 8, 15,8,5,11 ,16,11,1 
,14,5,15, 10,17,9,23,999,999 

560 DATA2, 2, 16, 17, 3, 3, 2, 4, 14, 17, 4, 1,2, 
5,1,2,6,14,17,6,1,17,7,1,2,8,16,1,10,17, 
2,12,16,19,12,1,15,13,2,1,14,3,5,14,9,16 
,14,2,19,14,1,5,15,1,17,15,3,3,16,3,7,16 
,9,3,17,1,13,17,1,17,17,1,1,18,13,16,18, 
2,15,18,3,2,20,2,5,20,10,18,20,2,3,21,1 
570 DATA16, 21, 1,1, 22, 17, 3, 24, 16, 15, 19, 

1.17.19.1.999.999.999 

580 DATA8, 3, 18, 2, 3, 5, 8, 7, 1,12, 17, 13,1, 

17.12.17.2.21.1.24.999.999 

590 DATA12, 1,1, 2, 2, 1,4, 2, 7, 12, 2, 1,14, 2 
,2, 17,2, r — 



3.1.2.4.1.4.4.5.10.4.1.12.4.1 

4.1.2.5.1.4.5.4.10.5.1.12.5.1 
5,2,2,6,1,10,6,1,12,6 



,14,4,1 

,14,5,1 



,17, 



T 



I, 9, 12, 7, 1, 14, 7, 1, 16, 7, 2, 12, B, 1,14, 8,1 
600 DATA17,B, 1,1,9,10,12,9,1,14,9,4,7, 
10,4,12,10,1,2,11,4,7,11,4,12,11,1,14,11 
,5,2,12,2,7,12,1,10,12,1,12,12,1,17,12,2 
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3,16,1,15,16,3,2,17,3,6,17,2,13,17,1,15, 
17,3,2,18,6,9,18,3,13,18,1,15,18,3,2,19, 
3,6,19,1,9,19,1,13,19,1,15, 19,3,2,20,3,6 
,20,2,11,20,1,13,20,1,15,20,3,2,21,7 
640 DATA1 1,21, 1,15, 21, 3, 2, 22, 16, 2, 23,1 
6,999,999,999, 12,1 ,16,5,9,7,14,7, 11,14,1 
5,15,5,17,5,19,1,20,9,21,999,999 

650 DEFPROCMESS: CLS: PRINTTAB (7,5) "M A 
Z E" : TAB <B,7) "R U N" 

660 PRINT " "STRING# (11,""*") 

670 PRINT C H 0 0 S E SHEET 

680 INPUTTAB (2, 18) ; A 
690 I FA< 10RA >4THEN680 
700 S=A-1 

710 PRINT" "D IFFICULTY" 

720 PRINT "(1-5) 5 - E A S Y" 

730 INPUTTAB (2,25) ;DIFF 
740 I FD I FF< 1 ORD IFF >5THEN730 
750 G=(100*DIFF)+200 
760 CLS; ENDPROC 
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CLASSIFIED DEPT. (CG) A.S.P. Lid., 1 Golden 
Square, London W1. 

CLASSIFIED RATES - 40p private per word. Semi 
display £9 per single column centimetre plus VAT 
minimum 2.5 centimetres. Series rates on appli- 
cation. Please note that all classified advertisements 
under £20 must be prepaid. All cheques or postal 
orders to be made payable to A.S.P. Ltd., (P.H.) 

Telephone Duncan Neilson on 01-437-0699 

es s 



WARNING NOTICE ^ 

Further, the advertiser indemnities the proprietors ot this magazine in respect of costs, damages, or any other claims brought against 
them as a result of legal action arising from the publication ol the advertisement. 

Any breach of these terms or the said conditions may result in prosecution of the advertiser by the proprietors. 
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INNOVATIONS 
COMPUTING AND 


ALPHASOFT 




VIDEO 






West Drayton, 
Middlesex UB7 9JS 
Tel: (0895) 420457 
Inexpensive software 
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SPECIAL DEAL FOR 


JOKES 




400 / 800 / XL / XE 


. . p 




CHARNWOOD GAMES 
30a WARWICK AVENUE. QUORN, 
LOUGHBOROUGH, 






